home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 October
/
Ahoy_Magazine_88-10_1988_Double_L.d64
/
downshift 128
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
488b
|
13 lines
1 rem *** downshift 128 ***
2 a=4864:printchr$(147)
3 forj=atoa+71:readb:pokej,b:x=x+b:nextj
4 ifx<>10304thenprint"error in data...":end
5 c=int(a/256):d=(a-(c*256))+13:pokea+1,d:pokea+3,c
6 print"data ok * sys"a"to activate...":end
7 data169,13,162,19,120,141,20,3,142,21,3,88
8 data96,165,212,160,0,201,4,208,8,232,208,253
9 data200,192,64,144,248,201,5,208,8,232,208,253
10 data200,192,128,144,248,201,6,208,8,232,208,253
11 data200,192,192,144,248,201,3,208,8,32,159,255
12 data165,212,184,80,244,169,0,133,209,76,101,250